home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00113_Pour scripts.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  499 b   |  26 lines
  1. global gPouredQuantity
  2.  
  3. on resetPourMeter
  4.   refreshPourMeter(VOID, 0)
  5.   gPouredQuantity = 0
  6. end
  7.  
  8. on runPourMeter increment
  9.   gPouredQuantity = gPouredQuantity + increment
  10.   refreshPourMeter(VOID, gPouredQuantity)
  11. end
  12.  
  13. on readPourMeter
  14.   return gPouredQuantity
  15. end
  16.  
  17. on rectOnStage testRect
  18.   stageWidth = (the stage).rect.width
  19.   stageHeight = (the stage).rect.height
  20.   if intersect(rect(0, 0, stageWidth, stageHeight), testRect) = rect(0, 0, 0, 0) then
  21.     return 0
  22.   else
  23.     return 1
  24.   end if
  25. end
  26.